Preparativos
library(dplyr)
library(ggplot2)
library(plotly)
library(sf)
library(DT)
library(leaflet)
felinos <-
st_read(
"felinos.csv",
options = c(
"X_POSSIBLE_NAMES=decimalLongitude", # columna de longitud decimal
"Y_POSSIBLE_NAMES=decimalLatitude" # columna de latitud decimal
),
quiet = TRUE
)
st_crs(felinos) <- 4326
provincias <-
st_read("C:/Users/gf0604-1/Documents/Felinos/provincias.geojson",
quiet = TRUE) %>% st_transform(4326)
Grafico
## Simple feature collection with 6 features and 2 fields
## Geometry type: MULTIPOINT
## Dimension: XY
## Bounding box: xmin: -85.7985 ymin: 8.268703 xmax: -82.78418 ymax: 11.04929
## Geodetic CRS: WGS 84
## species n geometry
## 1 Leopardus pardalis 63 MULTIPOINT ((-83.53047 10.5...
## 2 Leopardus tigrinus 5 MULTIPOINT ((-84.32307 10.1...
## 3 Leopardus wiedii 22 MULTIPOINT ((-85.62434 10.3...
## 4 Panthera onca 25 MULTIPOINT ((-83.40461 10.5...
## 5 Puma concolor 48 MULTIPOINT ((-85.3197 10.82...
## 6 Puma yagouaroundi 10 MULTIPOINT ((-85.47207 10.6...